source('dados.R')

xlim <- c(h$x[1], h$x[length(h$x)])
ylim <- c(0, 0.03)

xs <- seq(xlim[1],xlim[2], by=5)
ys <- fdp(xs)

plot(
	xs, ys, type='l',
	main='fdp',
	xlab='x', ylab='p(x)',
	lwd=2, col=rgb(0,0,1,.5),
	xlim=xlim, ylim=ylim)

linhaCauda <- function(x)
	lines(c(x,x), c(0, max(ys)), col='blue', lwd=2)

